#!/usr/bin/perl

use strict;
use Net::Whois::IP qw(whoisip_query);

print "Enter an IP: ";
chomp(my $ip = <STDIN>);

my $response = whoisip_query($ip);
print $response->{OrgName}."\n";
